home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / Painter.p < prev    next >
Encoding:
Text File  |  2000-05-09  |  6.9 KB  |  204 lines
  1. pTempVar <- <primitive 110 19 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r21 16r66 16r51 16r60 16r50 16r61 16r52 16r62 16r50 16r63 16r50 \
  4.         16r64 16r50 16r65 16r20 16rF3 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " drawText:at: " \
  8.   #( #[ 16r05 16r13 16r16 16r21 16r22 16r0A 16r30 16r22 16r0A 16r31 16rFA \
  9.         16r05 16rC8 16rF2 16rF5] \
  10.     #(  )) >
  11.  
  12. <primitive 112 pTempVar 3  " drawPixelAt: " \
  13.   #( #[ 16r21 16r0A 16r30 16r64 16r21 16r0A 16r31 16r65 16r30 16r16 16r14 \
  14.         16r15 16rFA 16r04 16rC8 16rF2 16rF5] \
  15.     #( 11  )) >
  16.  
  17. <primitive 112 pTempVar 4  " drawPolygon: " \
  18.   #( #[ 16r30 16r16 16r21 16rFA 16r03 16rC8 16rF2 16rF5] \
  19.     #( 10  )) >
  20.  
  21. <primitive 112 pTempVar 5  " drawEllipse:minaxis:maxaxis: " \
  22.   #( #[ 16r59 16r16 16r21 16r0A 16r30 16r21 16r0A 16r31 16r22 16r23 16rFA \
  23.         16r06 16rC8 16rF2 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 6  " drawCircle:radius: " \
  27.   #( #[ 16r59 16r16 16r21 16r0A 16r30 16r21 16r0A 16r31 16r22 16r22 16rFA \
  28.         16r06 16rC8 16rF2 16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 7  " drawBoxFrom:to: " \
  32.   #( #[ 16r57 16r16 16r21 16r0A 16r30 16r21 16r0A 16r31 16r22 16r0A 16r30 \
  33.         16r22 16r0A 16r31 16rFA 16r06 16rC8 16rF2 16rF5] \
  34.     #(  )) >
  35.  
  36. <primitive 112 pTempVar 8  " drawLineFrom:to: " \
  37.   #( #[ 16r22 16r0A 16r30 16r64 16r22 16r0A 16r31 16r65 16r56 16r16 16r21 \
  38.         16r0A 16r30 16r21 16r0A 16r31 16r14 16r15 16rFA 16r06 16rC8 \
  39.         16rF2 16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 9  " drawTo: " \
  43.   #( #[ 16r21 16r0A 16r30 16r64 16r21 16r0A 16r31 16r65 16r55 16r16 16r14 \
  44.         16r15 16rFA 16r04 16rC8 16rF2 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 10  " movePenTo: " \
  48.   #( #[ 16r21 16r0A 16r30 16r64 16r21 16r0A 16r31 16r65 16r54 16r16 16r14 \
  49.         16r15 16rFA 16r04 16rC8 16rF2 16rF5] \
  50.     #(  )) >
  51.  
  52. <primitive 112 pTempVar 11  " ownerIs " \
  53.   #( #[ 16r16 16rF3 16rF5] \
  54.     #(  )) >
  55.  
  56. <primitive 112 pTempVar 12  " location " \
  57.   #( #[ 16r14 16r15 16r81 16r00 16rF3 16rF5] \
  58.     #( #@  )) >
  59.  
  60. <primitive 112 pTempVar 13  " getDrawMode " \
  61.   #( #[ 16r13 16rF3 16rF5] \
  62.     #(  )) >
  63.  
  64. <primitive 112 pTempVar 14  " getOPen " \
  65.   #( #[ 16r12 16rF3 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 15  " getPens " \
  69.   #( #[ 16r10 16r11 16r81 16r00 16rF3 16rF5] \
  70.     #( #@  )) >
  71.  
  72. <primitive 112 pTempVar 16  " setDrawMode: " \
  73.   #( #[ 16r53 16r16 16r21 16rFA 16r03 16rC8 16rF2 16r21 16r63 16rF5] \
  74.     #(  )) >
  75.  
  76. <primitive 112 pTempVar 17  " setOPen: " \
  77.   #( #[ 16r52 16r16 16r21 16rFA 16r03 16rC8 16rF2 16r21 16r62 16rF5] \
  78.     #(  )) >
  79.  
  80. <primitive 112 pTempVar 18  " setBPen: " \
  81.   #( #[ 16r51 16r16 16r21 16rFA 16r03 16rC8 16rF2 16r21 16r61 16rF5] \
  82.     #(  )) >
  83.  
  84. <primitive 112 pTempVar 19  " setAPen: " \
  85.   #( #[ 16r50 16r16 16r21 16rFA 16r03 16rC8 16rF2 16r21 16r60 16rF5] \
  86.     #(  )) >
  87.  
  88. <primitive 98 #Painter \
  89.   <primitive 97 #Painter #Glyph #AmigaTalk:Intuition/Painter.st \
  90.    #(  #frontPen #backPen #otherPen #drawMode #x #y #ownerWindow ) \
  91.    #( #new: #drawText:at: #drawPixelAt: #drawPolygon: #drawEllipse:minaxis:maxaxis:  \
  92.        #drawCircle:radius: #drawBoxFrom:to: #drawLineFrom:to: #drawTo: #movePenTo: #ownerIs #location  \
  93.        #getDrawMode #getOPen #getPens #setDrawMode: #setOPen: #setBPen: #setAPen:  ) \
  94.   pTempVar 4 7 >>
  95.  
  96. pTempVar <- <primitive 110 19 >
  97. <primitive 112 pTempVar 1  " removeImage " \
  98.   #( #[ 16r30 16r18 16r19 16rFA 16r03 16rC8 16rF2 16rF5] \
  99.     #( 12  )) >
  100.  
  101. <primitive 112 pTempVar 2  " registerTo: " \
  102.   #( #[ 16r21 16r68 16r05 16r12 16r18 16r19 16rFA 16r03 16rC8 16rF2 16rF5 \
  103.        ] \
  104.     #(  )) >
  105.  
  106. <primitive 112 pTempVar 3  " new: " \
  107.   #( #[ 16r21 16r69 16r20 16rF3 16rF5] \
  108.     #(  )) >
  109.  
  110. <primitive 112 pTempVar 4  " setNextImage: " \
  111.   #( #[ 16r30 16r18 16r58 16r21 16r19 16rFA 16r05 16rC8 16rF2 16r21 16r67 \
  112.         16rF5] \
  113.     #( 15  )) >
  114.  
  115. <primitive 112 pTempVar 5  " setImagePlaneOnOff: " \
  116.   #( #[ 16r30 16r18 16r57 16r21 16r19 16rFA 16r05 16rC8 16rF2 16r21 16r66 \
  117.         16rF5] \
  118.     #( 15  )) >
  119.  
  120. <primitive 112 pTempVar 6  " setImagePlanePick: " \
  121.   #( #[ 16r30 16r18 16r56 16r21 16r19 16rFA 16r05 16rC8 16rF2 16r21 16r65 \
  122.         16rF5] \
  123.     #( 15  )) >
  124.  
  125. <primitive 112 pTempVar 7  " getNextImage " \
  126.   #( #[ 16r30 16r18 16r58 16r19 16rFA 16r04 16rC8 16rF1 16r67 16rF3 16rF5 \
  127.        ] \
  128.     #( 14  )) >
  129.  
  130. <primitive 112 pTempVar 8  " getImagePlaneOnOff " \
  131.   #( #[ 16r30 16r18 16r57 16r19 16rFA 16r04 16rC8 16rF1 16r66 16rF3 16rF5 \
  132.        ] \
  133.     #( 14  )) >
  134.  
  135. <primitive 112 pTempVar 9  " getImagePlanePick " \
  136.   #( #[ 16r30 16r18 16r56 16r19 16rFA 16r04 16rC8 16rF1 16r65 16rF3 16rF5 \
  137.        ] \
  138.     #( 14  )) >
  139.  
  140. <primitive 112 pTempVar 10  " getImageDepth " \
  141.   #( #[ 16r30 16r18 16r54 16r19 16rFA 16r04 16rC8 16rF1 16r64 16rF3 16rF5 \
  142.        ] \
  143.     #( 14  )) >
  144.  
  145. <primitive 112 pTempVar 11  " setImageDataFrom: " \
  146.   #( #[ 16r05 16r11 16r18 16r21 16r19 16rFA 16r04 16rC8 16rF2 16rF5] \
  147.     #(  )) >
  148.  
  149. <primitive 112 pTempVar 12  " drawImageAt: " \
  150.   #( #[ 16r05 16r10 16r18 16r21 16r0A 16r30 16r21 16r0A 16r31 16r19 16rFA \
  151.         16r05 16rC8 16rF2 16rF5] \
  152.     #(  )) >
  153.  
  154. <primitive 112 pTempVar 13  " addImage:height:depth: " \
  155.   #( #[ 16r30 16r18 16r21 16r22 16r23 16r19 16rFA 16r06 16rC8 16rF2 16rF5 \
  156.        ] \
  157.     #( 13  )) >
  158.  
  159. <primitive 112 pTempVar 14  " setImageDepth: " \
  160.   #( #[ 16r30 16r18 16r54 16r21 16r19 16rFA 16r05 16rC8 16rF2 16r21 16r64 \
  161.         16rF5] \
  162.     #( 15  )) >
  163.  
  164. <primitive 112 pTempVar 15  " setExtent: " \
  165.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r30 16r18 16r52 \
  166.         16r22 16r19 16rFA 16r05 16rC8 16rF2 16r30 16r18 16r53 16r23 \
  167.         16r19 16rFA 16r05 16rC8 16rF2 16r22 16r62 16r23 16r63 16rF5 \
  168.        ] \
  169.     #( 15  )) >
  170.  
  171. <primitive 112 pTempVar 16  " setOrigin: " \
  172.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r30 16r18 16r50 \
  173.         16r22 16r19 16rFA 16r05 16rC8 16rF2 16r30 16r18 16r51 16r23 \
  174.         16r19 16rFA 16r05 16rC8 16rF2 16r22 16r60 16r23 16r61 16rF5 \
  175.        ] \
  176.     #( 15  )) >
  177.  
  178. <primitive 112 pTempVar 17  " getImageSize " \
  179.   #( #[ 16r30 16r18 16r52 16r19 16rFA 16r04 16rC8 16r62 16r30 16r18 16r53 \
  180.         16r19 16rFA 16r04 16rC8 16r63 16r12 16r13 16r81 16r01 16rF3 \
  181.         16rF5] \
  182.     #( 14 #@  )) >
  183.  
  184. <primitive 112 pTempVar 18  " getStartPoint " \
  185.   #( #[ 16r30 16r18 16r50 16r19 16rFA 16r04 16rC8 16r60 16r30 16r18 16r51 \
  186.         16r19 16rFA 16r04 16rC8 16r61 16r10 16r11 16r81 16r01 16rF3 \
  187.         16rF5] \
  188.     #( 14 #@  )) >
  189.  
  190. <primitive 112 pTempVar 19  " ownerIs " \
  191.   #( #[ 16r18 16rF3 16rF5] \
  192.     #(  )) >
  193.  
  194. <primitive 98 #Image \
  195.   <primitive 97 #Image #Glyph #AmigaTalk:Intuition/Painter.st \
  196.    #(  #leftEdge #topEdge \
  197.         #height #depth #planePick #planeOnOff #nextImage #ownerWindow #imageName ) \
  198.    #( #removeImage #registerTo: #new: #setNextImage: #setImagePlaneOnOff:  \
  199.        #setImagePlanePick: #getNextImage #getImagePlaneOnOff #getImagePlanePick #getImageDepth  \
  200.        #setImageDataFrom: #drawImageAt: #addImage:height:depth: #setImageDepth: #setExtent: #setOrigin:  \
  201.        #getImageSize #getStartPoint #ownerIs  ) \
  202.   pTempVar 4 7 >>
  203.  
  204.